home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1993…ch: Other People's Memory / ADC Developer CD (1993-03) (''Other People's Memory'')_iso / Dev.CD Mar 93.iso / Development Platforms / LISP Related / LISP Goodies / McCartney-library 1.1 / Example / menus.lisp < prev    next >
Encoding:
Text File  |  1992-09-02  |  689 b   |  31 lines  |  [TEXT/CCL2]
  1. (in-package :cl-user)
  2.  
  3. (initialize-menu-tools)
  4.  
  5.  
  6. (let ((docs-menu 
  7.        (make-docs-menu 
  8.         "Docs"
  9.         '(("File-Utils;" "*.lisp")
  10.           ("Misc;" "*.lisp")
  11.           ("Oodles-Files;" "*.lisp")
  12.           ("Views;" "*.lisp")
  13.           -
  14.           ("Example;" "*")
  15.           ("Main;" "*")
  16.           -))))
  17.  
  18.   (add-menu-items 
  19.    docs-menu
  20.    (make-instance 'menu-item
  21.      :menu-item-title "Backup McCartney Utils..."
  22.      :menu-item-action
  23.      #'(lambda ()
  24.          (let ((dir (choose-directory-dialog)))
  25.            (backup-files "Main;" dir "*.lisp"))) ))
  26.  
  27.   (menu-install docs-menu))
  28.  
  29.  
  30. ;;; Execute this line to set the menubar back to normal
  31. ; (set-menubar *default-menubar*)